home *** CD-ROM | disk | FTP | other *** search
/ PC/CD Gamer UK 39 / PCGAMER39.bin / games / amber / amberhub.dxr / 00016_generic mouseDown handler.ls < prev    next >
Encoding:
Text File  |  1996-11-08  |  462 b   |  24 lines

  1. on mouseDown
  2.   if objectp(oPuppeteer) then
  3.     DoHotspots(oPuppeteer)
  4.   end if
  5. end
  6.  
  7. on wait howLong
  8.   set startTime to the ticks
  9.   repeat while the ticks < (startTime + howLong)
  10.     updateStage()
  11.   end repeat
  12. end
  13.  
  14. on ejectTest
  15.   global gCPU
  16.   if gCPU = #Mac then
  17.     set tempCDobject to AppleCD(mnew)
  18.     put tempCDobject(mEject)
  19.     put "<i>  Disposing of CD-ejector object: " & tempCDobject(mdispose)
  20.   else
  21.     put "<!>  This is just for Macs.."
  22.   end if
  23. end
  24.